COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C VARCOM.F4   LOAD WITH VCIO.FAI
C00004 ENDMK
C⊗;
C VARCOM.F4   LOAD WITH VCIO.FAI
C COMBINES (OR'S) .VRN FILES WITH DIFFERENT LINE THICKNESS
	DIMENSION I(128),J(128),K(12800),L(12800)
	DATA KK/2147483648/,KKK/536870912/
C 1ST SET OF FILES=A,B,C,D; 2ND=E,F,G,H; OUTPUT=I,J,K,L
	TYPE 1
	ACCEPT 2,N1
C	TYPE 3
C	ACCEPT 2,N2
C	TYPE 4
C	ACCEPT 2,N3
	NN=0
100	N2=N1+KK
	N3=N2+KK
	TYPE 20,N1,N2,N3
1	FORMAT(' INPUT 1 -- '$)
2	FORMAT(A5)
20	FORMAT(/1X3A5/)
3	FORMAT(' INPUT 2 -- '$)
4	FORMAT(' OUTPUT -- '$)
10	CALL GETEXT(N1,'VRN')
	CALL GETFI2(N2,-1)
	CALL PUTEXT(N3,'VRN')
	CALL EXTIN(I,128)
	CALL FASTI2(J,128)
C GET HEADERS
	CALL EXTOUT(I,128)
	N=0
5	CALL EXTIN(K,12800)
 	CALL FASTI2(L,12800)
7	DO 9 M=1,12800
9	IF(L(M).NE.0)K(M)=K(M).OR.L(M)
8	N=N+100
	TYPE 11,N
	CALL EXTOUT(K,12800)
	IF(N.LT.1700)GO TO 5
	CALL FINEXT
	NN=NN+1
	IF(NN.EQ.4)CALL EXIT
	N1=N1+KKK
	GO TO 100
11	FORMAT('+',I5,$)
	END